home *** CD-ROM | disk | FTP | other *** search
/ Quarterdeck InternetSuite / Quarterdeck InternetSuite.iso / qsockpro.qip / CYBERGAT.MPS < prev    next >
Encoding:
Text File  |  1996-03-20  |  900 b   |  50 lines
  1. # CyberGate PPP script
  2. # Copyright 1995 Quarterdeck Corporation
  3. # 9-12-95 CEL
  4.  
  5. STRING  username
  6. STRING  password
  7. STRING  framing
  8. STRING  IPAddress
  9.  
  10. # uncomment for debugging output
  11. # TRACE ON
  12.  
  13. SetTimeOut      60
  14.  
  15. CfgGetValue "Username" username
  16. IF result = 0 THEN
  17.     GetInput "Enter your username:" username
  18.     IF result = 0 THEN
  19.         PRINT "Warning, no username entered."
  20.     ELSE
  21.         PRINT "Username set to:";username
  22.     ENDIF
  23. ENDIF
  24.  
  25. CfgGetValue "Password" password
  26. IF result = 0 THEN
  27.     GetPassword "Enter your password:" password
  28.     IF result = 0 THEN
  29.         PRINT "Warning, no password entered."
  30.     ELSE
  31.         PRINT "Password set."
  32.     ENDIF
  33. ENDIF
  34.  
  35. CfgGetValue "Framing" framing
  36. IF result = 0 THEN
  37.     ABORT "Can't read 'Framing' setting from QDECK.INI."
  38. ENDIF
  39.  
  40. CommWaitFor "Username:"
  41. CommSend username
  42. CommSend "%r"
  43.  
  44. CommWaitFor "password:"
  45. CommSend password
  46. CommSend "%r"
  47.  
  48.  
  49. END
  50.